#!/usr/bin/perl -w  # for syntax highlighting
package clreqd_modules;

sub clreqd_delete_node {
my %ARGS=@_;

	my $node=$ARGS{NODE};

	my ($rc,$err)=$::REQD->delete_host_entry($node);
	if($rc==1) {
		($rc,$err)=$::REQD->write_config("$::ENV{TRUECL_CFG}/clreqd.xml");
		if($rc==0) {
			return "ERROR $err";
		}
		return "OK";
	}
	return "ERROR $err";
}

1;
